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About Back Issues... 


Don't be bashful, just tell me what you need! I have copies of 
all back issues in stock, at $1.80 each, $18 per volume, or $120 
for all seven of the completed volumes. Remember, our 
volume-year runs from October through September, and I started in 
1980. 


I also have Quarterly Disks for the entire period, $15 each or 
four for $60. Each Quarterly Disk covers a calendar quarter, so 
just specify which months you need. Starting with January 1986 I 
went to Monthly Disks, so you can get any individual month for 
only $5 from then till now. Each Quarterly or Monthly Disk 
contains all of the source code printed in the AAL issues it 
covers, in the format for the S-C Macro Assembler. Early ones 
are all DOS, later are split with both DOS and ProDOS directories 
on the same disk. And since sometime last year we have also been 
including all of the text files for the articles themselves, as a 
service to readers who like to have the Echo Speech Synthesizer 
(or other brands) read it all to them. 


Toward a New Standard Assembly Language... 


Randy Hyde, who you may remember as author of the Lisa 6502 
Assembler, is attempting to organize interested parties to 
produce a new definitive 65816 assembly language standard. He 
claims the existing standard, based on Orca, is confuSing, overly 
complex, and idiosyncratic; a new standard could allow assemblers 
with more power than the Microsoft 8086 assembler to be written 
for the 65816. Right now Randy is collecting ideas and 
contacting key individuals (such as the authors of the various 
existing 65816 assemblers and 65816 books, and the chip's 
designer), and planning for a conference at WDC in Arizona some 
time this summer. If you are interested in participating in any 
way, write to him: Randall Hyde, 65C816 Standards, 2271 Indian 
Horse Drive, Norco, CA 91760. 


Peeking Inside ape Werks 1.3 
+ Subroutine Call Parameter Passage 
+ String Handling Subroutines.............-Bob Sander-Cederlof 


There are a lot of useful subroutines inside AppleWorks. I 
have been looking at a raw disassembly, and have learned a few 
new tricks. Even though AppleWorks is ProDOS-based, the 
subroutines are general enough that you can use them in your 
own code in any operating system. 


All my observations are based on version 1.3, as that is the 
only one I have. Meanwhile, Apple has moved on to version 2.0 
and turned it all over to Claris. That is all right, because I 
am not proposing that we use the subroutines by loading 
AppleWorks and calling them; I am proposing that we copy the 
code or some modification of it into our own programs. 


When you boot AppleWorks 1.3 the first thing it does is to copy 
the APLWORKS.SYSTEM image down from $2000 to $1000. I simply 
loaded it there from inside the S-C assembler with "“BLOAD 
APLWORKS.SYSTEM,TSYS,A$1000". Then I printed out a huge 
listing with the monitor's “L“ command, and went to work with a 
pencil. I don't even know what section of AppleWorks I am 
looking at yet, but it is chock full of interesting code I can 
use. 


The first thing I noticed was that a lot of code did not 
Gisassemble correctly: The "L" command went weird after a lot 
of JSR's. It seems the author liked to call subroutines with 
parameters in data form following the JSR, like ProDOS MLI 
calls. In most cases (all I could find) there are either two, 
four, or six bytes of parameters after these JSR‘'s. The 
subroutines all call, in turn, on a magic little subroutine 
which copies the parameter bytes to a standard area in page 
zero, Starting at $9A. This GET.x.PARMS subroutine also 
updates the return address on the stack so that, when the 
parameterized call is completed, execution will resume after 
the parameter bytes. 


The GET.x.PARMS subroutine is shown as I found it inside 
AppleWorks 1.3, in lines 1300-1580. I used the .PH $18AD line 
to make it look exactly the same as the AppleWorks image. The 
code looked a little fluffy to me, so I wrote my own version 
(which is shorter and swifter); you can see it in lines 
1830-2070. 


The AppleWorks version is evidently one of the busiest pieces 
of code in the system. I say that, because the author chose to 
poll the keyboard inside GET.x.PARMS. Line 1550 calls the 
POLL.KEYBOARD subroutine, which I show with comments in lines 
1600-1810. I left this out of my rendition of GET.x.PARMS, 
because I am building a little package of routines for my own 
use. I included the listing here because I thought you might 
like to see how it is done. Notice the buffer holds only ten 
Characters, aS written. 


Notice that there are three entry points to the GET.x.PARMS 
subroutine. The first copies four bytes following the JSR to 
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S-C Macro Assembler Version 2.0 . eh hel thCUlm thle eC CdS. $100, ProdDOS $100, both for $120 
Version 2.0 DOS Upgrade Kit for 1.0/1.1/1.2 owners . . «© «© © © «© «© «© « «© « « $20 
ProDOS Upgrade Kit for Version 2.0 DOS owners . . 2. .« «© «© © © © © « © « « «+ $30 


Source Code of S-C Macro 2.0 (DOS or ProDOS) . . . . . « « «. +. each, additional $100 


S-C DisAssembler (ProDOS only) . . . «.« « « « without source code $30, with source $50 
RAK-Ware DISASM (DOS only) . . . . «6 «© « -« without source code $30, with source $50 
ProVIEW (ProDOS only) . . . . .- : Se ee a ee RS ee ee os, a 8 S20 
Full Screen Editor for S-C Macro (with écupiete source code) . . . «© « « « «© « « $49 
S-C Cross Reference Utility . . . . . .« « . without source code $20, with source $50 


S-C Word Processor (with complete source code) ee So See ek Mee A Eh. So SO 
DP18 and DPFP, including complete source and object code a ae eR ae a a a BHO 
ES-CAPE (Extended S-C Applesoft Program Editor), including Version 2.0 With Source Code . $50 
ES-CAPE Version 2.0 and Source Code Update (for Registered Owners) . . . a. a 3% $30 
Bag of Tricks 2 (Quality Software) ae ae ee ee ee Ge eS oe ($49.95) $45 
S-C Documentor (complete commented source code of Applesoft ROMs) oe a owe - $50 


Cross Assemblers for owners of S-C Macro Assembler. . 
(Available: 6800/1/2, 6301, 

1802/4/5, PDP-11, 

Beagle Bros. Applesoft Compiler (ProDOS ONLY) & 2 oa a ex 

Copy II Plus (Central Point Software) eo Se ee OR cee eS Se, 

AAL Quarterly Disks ee cla Ia Tae tee a es ORE CA G8 


(All source code is formatted for S-C Macro Assembler. 
require some effort to convert file type and edit directives.) 


Vinyl disk pages, 6"x8.5", hold two disks each . ... . 
Diskette Mailing Protectors (hold 1 or 2 disks) . . . . . 


(Cardboard folders designed to fit 6"xX9" Envelopes. 


Envelopes for Diskette Mailers . . . . « .« « « «« «© « 
Sider 20 Meg Hard Disk, includes controller & software . 
Sider 40 Meg Hard Disk, includes controller & software . 


Minuteman 250 Uninterruptible Power Supply . 
Minuteman 300 Uninterruptible Power Supply . 


65802 Microprocessor, 4 MHz (Western Design Center) . 
quikLoader EPROM System (SCRG) . . . . . . « « 
PROmGRAMER (SCRG) . . . 2. «© «© © © © «© «© « 


ove $32. 50 to $50 each 


6805, 6809, 68000, Z-80, 2-8, "g048, 8051, 8085, 
GI1650/70, Mitsubishi 50740, others ) 


($74.95) 
($39.95) 


$65 
$30 


exe $15, or any four for $45 


Other assemblers 


P 10 for $6 
40 cents each 


or $25 per 100 


6 cents each 


($695) $550 
($995) $860 


($359) $320 
($549) $490 


e e 


- $25 


. ($179), $170 
($149.50) $140 


"Exploring the Apple IIgs" . . . . . « « « « « © « Gary B. Little ($22.95) $21 
"Apple IIgs Technical Reference" . . - 6 «© «+ « « Michael Fischer ($19.95) $19 
"65816/65802 Assembly Language Programming". . « « «+ . Michael Fischer ($21.95) $20 
"Programming the 65816" . . . . «. « « « « +» David Eyes & Ron Lichty ($22.95) $21 
"Apple //e Reference Manual". . . . . . «6 « «© « « «+ Apple Computer ($24.95) $23 
"Apple //c Reference Manual". . . . . «© « « « « « « Apple Computer ($24.95) $23 
"ProDOS-8 Technical Reference Manual". . . . . . « +. + +« Apple Computer ($29.95) $27 
"ProDOS-16 Technical Reference Manual" . . . . . +. +« +« Apple Computer ($29.95) $27 
"Apple Ilgs Firmware Reference". . . . .«. « «© « « « «+ Apple Computer ($24.95) $23 
"Apple IIgs Hardware Reference". . . . «. «+ « « « « «© Apple Computer ($24.95) $23 
"ProDOS Inside and Out™ . . . . . +. +. + +» Dennis Doms & Tom Weishaar ($16.95) $16 
"DOStalk Scrapbook". . . . «. «. «+ « « « « Tom Weishaar & Bert Kersey ($14.95) $14 
"Beneath Apple ProDOS". . . . . . «. .« +. +. Don Worth & Pieter Lechner ($19.95) $18 
"Beneath Apple DOS". . . . «. « «©. © « + « +» Don Worth & Pieter Lechner ($19.95) $18 
"Inside the Apple //c™. . . . . «6 «© «© « « « « « « Gary B. Little ($19.95) $18 
"Inside the Apple //e". . . ee heheheh le le eC eSCt «Garry BL. Little §=($19.95) $18 
"Understanding the Apple /ler . ee le lel ell leet :stC«i dim Sather = ($24.95) $23 
"Understanding the Apple II". . . . . «. 6 « « « «© « © Jim Sather ($22.95) $21 
"Apple II+/IIe Troubleshooting & Repair Guide". . . . . . . +. Brenner ($19.95) $18 
"Assembly Language for Applesoft Programmers". . . . . . Finley & Myers ($18.95) $18 
"Now That You Know Apple Assembly Language". . . . . . . Jules Gilder ($19.95) $18 
"Enhancing Your Apple II, vol. 1". . . . « « «© « « + Don Lancaster ($15.95) $15 
"Enhancing Your Apple II, vol. 2". . . . «. «. « « «++ Don Lancaster ($17.95) $17 
"Assembly Cookbook for the Apple II/IIe". . . . . . +. +. Don Lancaster ($21.95) $20 
"Microcomputer Graphics" . . . . « «© «© «© « « « « « «+ Roy E.Myers ($14.95) $14 
"Assembly Lines -- the Book". . . . «6 « «© «© «© «© « « Roger Wagner ($19.95) $12 


* These items add $2 for first item, $.75 
+ Inquire for shipping cost. 

Customers outside USA inquire for postage needed. 
Texas residents please add 8% sales tax to all orders. 
<< Master Card, VISA, Discover and American Express >> 


for each additional 


item for US shipping. 


S-C Software Corporation 

2331 Gus Thomasson #125 
DALLAS. TX 75228 
Phone 214-324-2050 
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S9A...9D; the second copies only two bytes; and the third 
copies any number, which you specify in the A-reyister. I used 
a memory search to uncover all the calls on this third entry, 
and I only found calls which wanted to copy six bytes. There 
may be others, hidden in other sections of the AppleWorks code. 


My more efficient rendition saves one byte by using the BIT 
opcode ($2C) to skip over the two-byte LDA #2 instruction (see 
lines 1370 and 1870). I also save by pushing the byte count on 
the stack instead of saving it in RAM: the storage location is 
saved, and the PLA is two bytes shorter than a STA. However, I 
have to pull the byte back off the stack at line 2050, so the 
net saving is only two bytes. Line 2060, the LDY #0, can be 
deleted and save another two bytes (Y is already 0, in order 
for the loop in lines 2010-2040 to terminate). I don't need it 
because I have not called POLL.KEYBOARD. By the way, we do 
want to be sure that Y=0 here, because a lot of the subroutines 
depend on it. If we don't make it one of the functions of 
GET.x.PARMS, we will have to add a line to most of the 
subroutines which call GET.x.PARMS. 


Inside AppleWorks a lot of string processing goes on. All of 
the strings I have observed are stored in memory as a length 
byte followed by the string data bytes. The maximum string 
will have 255 data bytes. A byte count equal to $00 represents 
a null string. Lines 2980-3130 are my own code, simply to 
illustrate how you might code a subroutine to display a string 
stored in this fashion. Lines 3640-3690 show some strings 
built by the assembler. In my DEMO code, starting at line 
3470, I called on DISPLAY.STRING to print these strings. 


Lines 2080-2970 show my renditions of four subroutines I found 
inside AppleWorks, which I have named MOVE.STRING, 

COMPARE .STRING, APPEND.STRINGS, and FILTER.LC.TO.UC. These are 
not identical to the AppleWorks code, as I found some easy 
improvements here and there. I showed in comment lines where 
you can find these subroutines inside the AppleWorks 1.3 image. 
My DEMO program, lines 3470 to the end, shows some of these in 
action. 


Not all of the subroutines which I found have to do with 
strings. Lines 3140-3410 show MOVE.BLOCK, which does the 
equivalent of a monitor "M“ command. The three parameters are 
the destination starting address, the source starting address, 
and the number of bytes to be moved. (I say “moved", perhaps I 
should really say “copied".) A similar subroutine which starts 
immediately after this one, at S$l1BAC, moves a block of memory 
"up", by starting at the last byte of the source block and 
moving backwards. This gives the ability to move a block of 
memory up to an overlapping area, without clobbering the data. 


At the beginning of the code at $1000 there is a JMP table (a 
long series of JMP xxxx instructions, one right after the 
other) which is evidently used when other segments want to use 
some of these general subroutines. Each of the other segments 
also begins with a JMP table. This is a good scheme for 
joining together pieces of a large system, and is easy to do. 

I find it a lot handier than the use of a Link Editor approach, 
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RamKeeper 


For the “Instant On” Apple IIGS. 


FADE Ih USA 


Permanent Storage with an 
“Electronic Hard Disk’ 

Now when you tum on your HGS your 
favorite program can appear on screen 
in just a few seconds! With RamKeeper, 
your IIGS memory card will retain stored 
programs and stored data while your 
IIGs is turned off RamKeeper allows you 
to divide your IIGS memory into part 
“electronic hard disk” and part RAM for 
your programs workspace—in almost 
any Way you want and at anytime you 
want GS-RAM, Gs-RAM Plus, Apple IIGs 
memory card and most other IIGs 
memory cards are compatible with 
RamKeeper. 


Supports Up to Two IIGs Memory 
Cards at the Same Time 

If you bought your IIGs with Apple’s 
memory card and later wished you had 
the Gs-RAM, no problem. RamKeeper will 
support both cards plugged into Ram- 
Keeper simultaneously! 


How it Works 
Just unplug your IIGS memory card 


“Tve purchased several 
Applied Engineering 
products over the years 
They're always well 
made and performed 
as advertised | 
recommend them 
uole-beartedh:” 


Steve Wozniak, the creator 
of Apple Computer 


| from your computer, plug your [Ics 
memory card into RamKeeper, plug 
RamKeeper into the IIGs memory slot If 
you have another IIGS memory card, an 
additional card socket on RamKeeper 
will accommodate your second card. 
That's all there is to it! 


Reliability from the Most 
Experienced 

Applied Engineering has the most 
experience in the industry with battery- 
backed memory for the Apple so you are 
assured of the most reliable memory 
back-up system available. And in the 
world of battery-backed memory, reliabil- 
ity is everything! Thats why Applied 
Engineering uses the more dependable 
Gel-Cell's instead of Ni-Cad batteries (if 
Ni-Cad’s aren't discharged periodically, 
they lose much of their capacity). 
RamKeeper has close to 6 times (about 
6 hours) the “total power failure” back- 
up time of other systems. When power 
retums, RamKeeper automatically re- 
charges the battery to a full charge. With 
power from your wall outlet, RamKeeper 
will back-up your IIGS memory cards 
RAM indefinately. 


RamKeeper Has and 

Does It All! 

e Allows instant access to your programs 
without slow disk delays 

e Configure Kilobytes or Megabytes of 
instant ROM storage for your favorite 
Programs 


e Reduces power strain to your internal 
IIGS' power supply 

e Contains back-up status LE.D.’s 

e Can support up to two IIGs memory 
cards simultaneously 

e Supports both 256K installed memory 
chip boards like Gs-RAM and the Apple 
IIGS Memory Expansion Card as well 
as 1 MEG installed memory chip 
boards like Gs-RAM Plus 

e 5-year hassle-free warranty 

e 15 day money back guarantee 

e Proudly made in the USA 

e RamKeeper comes complete with 
battery, software and documentation 


Only $179.00! 
(GS-RAM card shown in photo 
not included) 


Order Your RamKeeper Today! 
See your dealer or call (214) 241-6060, 
9:00-11:00 CST, 7 days a week, or send 
check or money order to Applied 
Engineering MasterCard, VISA and 
C.O.D. welcome. Texas residents add 7% 
sales tax. Add $10.00 if outside USA 


ZAG. APPLIED ENGINEERING” 
The Apple enbancement experts. 
(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 


Prices subject to change without notice. 
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as is used under ProDOS-16. On the other hand, subroutines 
such as these I have shown in this article are the very type 


you might want to keep in assembled form as relocatable, 
linkable, object files, on a library ready to be used by all 
your future code. Even better, they are the type of 
subroutines I wish were in the //gs tool boxes, in ROM. And 
there, they would best be called via a JMP table, for 
efficiency. These routines are too short to afford the 
tremendous overhead of “real" toolbox calls. 


The handiest way to use subroutines like these would involve 
writing macros for the calls. For example, here are some macro 
definitions for MOVE.STRING, APPEND.STRINGS, and MOVE.BLOCK: 


eMA MOVE.STRING 
JSR MOVE .STRING 
-DA J1,)2 

- EM 


eMA APPEND.STRINGS 
JSR APPEND.STRINGS 
-DA }1,]2 

- EM 


~MA MOVE .BLOCK 
JSR MOVE .BLOCK 
-DA )1,)2,]3 

» EM 


These are simple enough, but they can make coding a program 
easier. If you are error prone, or simply enjoy being 
cautious, you might add code to the definitions to check for 
the correct number of macro parameters. For example, 
MOVE.BLOCK requires three parameters: 


eMA MOVE .BLOCK 
-DO } #=3 
JSR MOVE .BLOCK 
-DA J]1,]2,]3 
- ELSE 
==> ERROR: WRONG NUMBER OF PARAMETERS. You have ]#, I need 3. 
-FIN 
. EM 


The line starting “==>" will not be assembled as long as you 

have 3 parameters. If you have some other number, that line 

will cause an assembly error, since it starts with an illegal 
character. This will make it display during assembly, so you 
can catch and correct your call. 
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For example, if I try to assemble the following line: 


1140 


>MOVE .BLOCK BUFFER,SIZE 


you will get the message: 


>1140 ==> ERROR: 
I need 3. 


WRON 


G NUMBER OF PARAMETERS. You have 2, 


Did you know you could do that? I wasn't sure, but I tried it 
and it works. 


18 
01 


oo— 
== ont CD 


01 
00 


1F 


CAIN SW © 


FW A) =| OW COD O"N EW PAD 2 O00 WD] MU wy) NO = O00 CD] Gan tw) AD = O10 CO) OU ww NV 2 OO 


elolelolololelolelololelolol@jlolololololeololololovelolololololololeilololelololololololoeiolelelolololelololoeloleljelolseo) 


ee me ee ee me ee ee me me me eh ee me we me we ee ee ee we me we ed we me ee ee ek ee wee we ee eed nth we eh ee ce ed ee we cee ee ee ee ee ee eh ee ed eh oe sd ed 
JT 


GSTS SISO OTTO ee BB WWW WWW PD. 10.110 10. 10 10.90 10 10 10 3 = ot ot tt BO OOOO OCOOOO 


Co-~] OV 


PO -EQ $9A 

P1 -EQ $9B 

P2 ~-EQ $9C 

P ~-EQ $9D 

P -EQ $9E 

P5 -EQ $9F 

COUNT .EQ $A0 

MON.CROUT .EQ gEDSE 

MON . COUT EQ $FDED 

® GET PARMS 

sd (A) = # bytes of parameter info 
¢ Copy the bytes to $9A, 9B, ... etc. 
sd Update Return Address 

8 Poll Keyboard for Type-Ahead 
: Set Y=0, clobbers A and X 

# For Example: 

# JSR subroutine 

® -DA parm1,parm2 

; <return here} 

: subroutine JSR GET.4.PARMS 

# RTS 

# 

La TT EAT Ce er LN See Oe 

& 


aw Cer A LDA #4 


E AW.GET.A.PARMS 


N 
AW.GET.2.PARMS LDA #2 
AW.GET.A.PARMS TAY 

STA AW.GET.PARM. TEMP 


$0103,X 
PNTR 
AW.GET. PARM. TEMP 
$0107, 
0104: x 
PNTR+1 
#0 
0104,X 


NTR} ,Y 
PNTR+1,Y 


1 
POLL .KEYBOARD 
#0 
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1590 Sesceeee cesses seeuese sessed 

! 00 # POLL KEYBOARD 

1610 .PH $ 

1630 POLL .KEYBOARD 
1FAT- AD 00 CO 1640 LDA $CO0O0 ANY KEY PRESSED? 
1FAA- 10 24 1650 BPL .3 .»NO, RETURN NOW 
1FAC- 8D 10 CO 1660 STA $C010 -. YES, CLEAR STROBE 
IRAP AE 61 CO 1670 LD C06 1 OPEN APPLE PRESSED? 
EBA AE 62 CO 1690 LD $c062 SOLID APPLE PRESSED? 
1FB9- 29 TF 1710 AND (7F -..NO APPLES, SO CLEAR BIT 7 
1FBB- AE 84 11 1720 .1 LDX $1184 <<KEY.BUFFER.INDEX>> 
FRE 9D 7A 11 1739 STA 117A,X <<KEY.BUFFER>> 
1FC2- EO OA 1750 CPX #10 AT END OF BUFFER YET? 
1FCH- 90 02 1760 BCC .2 .»-NO END YET 
1FC6- A2 00 1770 LDX #0 ..-END, SO WRAP AROUND 
1FC8- EC 85 11 1780 .2 CPX $1185 <<KEY.BUFFER.OUTDEX>> 
1FCB- FO 0 1790 BEQ 3 BUFFER IS FULL 
1FCD- 8E 84 11 1800 STX $1184 <<KEY.BUFFER.INDEX>> 
1FDO- 60 18.10 3 RTS 

1830 Sccteses socket wesc ee esau cues 

18 0 # My More Efficient Version 

1 5 0 Qosnencouanaoee a eee enaseseaeaseaasaaetaew 
O85A- AQ O4 1860 GET.4.PARMS LDA #4 
085c- 2 1 70 -HS 2C ~=SKIP NEXT 2 BYTES 
O85D- AQ 02 1880 GET.2.PARMS LDA #2 
O85F- As 1890 GET.A.PARMS TAY 
7 
0862- BD ou 01 1920 LDA $0104, x GET RETURN ADDR-LO 
0 i: a 9 1930 STA PNTR KEEP FOR VECTOR 
0868- 7D 01 01 1950 ADC $0101,X ADD # BYTES 
O86B- 9D O4 01 1960 STA $0104,X UPDATE RETURN ADDR-LO 
O86E- BD 05 01 1970 LDA $0105,X GET RETURN ADDR-HI 
els Bb 9 1380 STA PNTR+| SAVE FOR VECTOR 
08 75- 9D 05 01 2000 STA $0105 X UPDATE RETURN ADDR-HI 
0878- B1 98 2010.1 LDA (PNTR),Y USING VECTOR, COPY PARMS 
O87A- 98 99 00 2020 STA PNTR+1,Y ...TO 9A, 9B, etc. 
OBtE- DO F8 Soo BRE 1 
0880- 68 2050 PLA GET LENGTH OFF STACK 
0881- AO 00 2060 LDY #0 
0883- 60 20 0 : RTS 

2090 # MOVE STRING 

2100 # JSR MOVE. STRING 

2110 # -DA destination, source 

2120 ® (at $1EF8 in AppleWorks 1.3) 

Sinko MOVE. STRING 
O884- 20 5A 08 2150 JSR GET,4.PARMS 
0887 - Bt 9c 21 0 LDA P2 ,Y COPY THE LENGTH BYTE 
O88B- FO 08 $2180 BEQ .2 STRING IS EMPTY 
O88D- A8 2190 TAY LENGTH TO Y 
O88E- Bi 9C 2200 .1 LDA P2}4¥ 
0890- 91 9A 2210 sta (P0),Y 
BRGee BO ro 3850 BoE 
OB ge. 60 22 0 2 RTS — 

2260 # COMPARE TWO STRINGS 

2270 & JSR COMPARE. STRINGS 

2280 # -DA stri,str2 

2290 # return Carry Clear if stri1 < str2; else Carry Set 

Sac # (at $1ED9 in AppleWorks 1.3) 

5330 COMPARE. STRINGS 
0896- 20 5A 08 2330 JSR GET, 4. PARMS 
0 99 BI OA 2 40 LDA PO}, GET LENGTH OF SHORTER STRING 
he 90 éS 2360 BCC .1 
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SPECIAL !!! EXPANDED RAM/ROM BOARD: $39.00 
Similar to our $30 RAM/ROM dev board described below. Except this board has two sockets to hold your choice 
of 2-2K RAM, 2-2K ROM or even 2-4K ROM for a total of 8K. Mix RAM and ROM too. Although Apple limits 
access to only 2K at a time, soft switches provide convenient socket selection. Hard switches contro! defaults. 


IMPROVED I 11 Jf IN AMAC (ver 2.0): $75.00 
Now includes faster graphics, UniDisk support and more! Bi-directional data transfers are a snap! This Apple Il 
emulator runs DOS 3.3/PRODOS (including 6502 machine language routines) on a 512K MAC or MACPLUS. All 
Apple |i features are supported such as Hi/LO-RES graphics, 40/80 column text, language card and joystick. 
Also included: clock, RAM disk, keyboard buffer, on-screen HELP, access to the desk accessories and support 
for 4 logical disk drives. Includes 2 MAC diskettes (with emulation, communications and utility software, plus 
DOS 3.3 and PRODOS system masters, including Applesoft and Integer BASIC) and | Apple !! diskette. 


SCREEN.GEN: $35.00 
Develop HI-RES screens for the Apple Il on a Macintosh. Use MACPAINT (or any other application) on the MAC to 
create your Apple Ii screen. Then use SCREEN GEN to transfer directly from the MAC to an Apple Ii (with 
SuperSerial card ) or llc. Includes Apple || diskette with transfer software plus fully commented SOURCE code. 


MIDI-MAGIC for Apple //c: $49.00 
Compatible with any MIDI equipped music keyboard, synthesizer, organ or piano. Package includes a MiDl-out 
cable (plugs directly into modem port - no modifications required!) and 6-song demo diskette. Large selection of 
digitized QRS player-piano music available for 19.00 per diskette (write for catalog). MIDI-1AGIC compatible 
with Apple |i family using Passport MIDI card (or our own input/output card w/drum sync for only $99.00). 


FONT DOWNLOADER & EDITOR: $39.00 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. Special functions (like expanded, compressed etc.) supported. 
Includes HIRES screen editor to create custom fonts and special graphics symbols. For Apple Il, Il+, //e. Specify 
printer: Apple Imagewriter Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/85, or Okidata 92/192. 
* FONT LIBRARY DISKETTE #1: $19.00 contains lots of user-contributed fonts for all printers 
supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e : $30.00 ($50.00 with SOURCE Code) 
Use this intelligent disassembler to investigate the inner workings of Apple I! machine language programs. 
DISASM converts machine code into meaningful, symbolic source compatible with S-C, LISA, ToolKit and other 
assemblers. Handles data tables. displaced object code & even provides label substitution. Address-based triple 
cross reference generator included. DISASM is an invaluable machine language learning aid to both novice & 
expert alike. Don Lancaster says DISASM is “absolutely essential” in his ASSEMBLY COOKBOOK. 


The ‘PERFORMER’ CARD: $39.00 ($59.00 with SOURCE Code) 
Converts a ‘dumb’ parallel printer 1/F card into a ‘smart’ one. Simple command menu. Features include 
perforation skip, auto page numbering with date & title, large HIRES graphics & text screen dumps. Specify 
printer: MX-80 with Graftrax-80, MX-100, MxX-80/100 with Greftraxplus, NEC 8092A, CItoh 8510 
(Prowriter), OkiData 82A/83A with Okigraph & OkiData 92/93. 

‘MIRROR’ ROM: $25.00 ($45.00 with SOURCE Code) 
Communications ROM plugs directly into Novation’s Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. 


RAM/ROM DEVELOPMENT BOARD: $30.00 
Plugs into any Apple siot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $CnO00-CnFF and $CB00-CFFF. 


C-PRINT For The APPLE //c: $69.00 
Connect standard parallel printers to an Apple //c serial port. Separate P/S included. Just plug in and print! 


Unless otherwise specified, all Apple | diskettes are standard (not copy protected!) 3.3 DOS. 
Avoid a $3.00 handling charge by enclosing full payment with order. VISA/MC and COD phone orders OK. 


RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 
CEESCEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEES 
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O89F- Bi 9C 2370 LDA (P2),Y 
Sete Bh on 2450-1 AL g | MGRLLOF SMRgTEST TO REO 
O8A4- C 200 .2 INY — COMPARE BODY OF STRINGS 
OBAT~ Bl oe | BNO CHE (poy ey 
0 A = do 09 24 0 BNE ee NOT SAME, SO CARRY GIVES RELATION 
OBAC- DO F6 2450 BNE .2 MORE TO COMPARE 
O8AE- AO 00 2460 .3 LDY #0 STRINGS MATCH TO END OF SHORTEST 
O8BO- Bi 9A 2u70 LDA (PO) ,¥ COMPARE ON BASIS OF LENGTH 
O8B2- Bi 9C 24 LDA (P2),Y 
OBB4- 60 24 0 4 RTS 
2215 ¢ MPN THO apr vas 
2530 & stringA,stringB 
32 9 ® (at 3138 in AppleWorks 1.3) 
O8B5- 20 5A 08 $3 0 eee aR GET 4, PARMS 
O8BB- Bi 9A 2580 LDA @p0), Y GET LENGTH OF STRING A 
ot rr 
O8BC- 71 9C 2610 ADC (P2 ,Y ADD LENGTH OF STRING B 
O8BE- 2 OA 2620 STA MAKES LENGTH OF COMBINED STRING 
0 co- b8 26 0 PLA GET LENGTH OF STRING A AGAIN 
08C2- 65 9A 2650 ADC PO BUMP POINTER TO END OF STRING A 
O8CH- 85 9A 2660 STA PO 
SREB Be 9B SRO PAC Pt 
O8CA- B1 Hs 2690 .1 LDA (P2),Y LENGTH OF STRING B 
O8CC- FO 2700 BEQ .3 ...NULL, SO PINESHED 
O8CE- A8 2710 TAY 
O8CF- B1 9C 2720 .2 LDA (Pe ey 
O8D1- 4 9A 2730 STA (PO),Y 
08D3- 2740 DEY 
O8D4E- DO FQ 3790 BNE .2 
O8D6- 60 21 0 .3 RTS 
2780 ® FILTER LOWER CASE to UPPER CASE in a STRING 
2190 : JSR FILTER. .LC.TO.UC 
strin 
ee 10 # (at $1BF in ppleWorks 1.3) 
O8D7- 20 5D 08 33 , FT ER ee ORT 2 PARMS 
OBDA- B1 9A ~—- 2850 LDA (PO),Y GET LENGTH OF STRING 
O8DC- FO 12 2860 BEQ .3 NULL STRING 
O8DE- A8 2870 TAY LENGTH TO Y-REG 
O8DF- B1 ga 2 1 LDA (PO),Y 
O8E1- C j 2890 CMP #'a! 
O8E3- 90 0 2960 BCC .2 
OBE?- BO Ob 3820 Bes foe. 
O8E9- 29 DF 2930 AND #90r TURN OFF LOWER/CASE BIT 
O8EB- 91 9A 29h0 STA (PO),Y 
O8ED- 88 2990 i2 DEY 
O8FO- 60 29 0 . RTS 
F000 eee DISPLAY. STRING 
3010 # DA string. address 
3020 Baan nena ne meen neem weeercecence= 
030 DISPLAY.STRING 
O8F1- 20 5D 08 30h0 JSR GET. 2.PARMS 
O8F4- Bi 9A 30 0 LDA (PO),Y GET LENGTH 
O8F6- FO 0C 060 BEQ . .»s NULL STRING 
O8F8- 85 AO 3070 STA COUNT 
OBFA- C 080 .1 INY 
O8FB- Bi 9A 090 LDA (PO),Y 
O8FD- 20 ED FD 3100 JSR MON. _couT 
0900- C4 AO 110 CPY COUNT 
0902- 90 F6 120 BCC . 
0904- 60 3130 .2 RTS 
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For Those Who Want the Most. 
From Those Who Make the Best. GS-RAM” 


Now expand the IIGS’ RAM and ROM with up to8 MEG of “Instant On” memory with the all new GS-RAM! 


GS-RAM 
Plus™ 


GS-RAi 


Gs-RAM has an all new design. A design that 
delivers higher performance including in- 
creased speed, greater expandability, and 
improved software. 
More Sophisticated, Yet 
Easier to Use 

GS RAM works with all IIGs software. In fact 
any program that runs on Apple’s smaller 
memory card runs on the Gs-RAM. But with 
GS-RAM you can have more memory, im- 
proved performance, and almost unlimited 
expansion capabilities. We've designed the 
new GS-RAM to be easier to use too—you 
don't have to adjust the size of your RAM 
disk every time you use a DMA device. No 
other RAM card with more than 4 banks of 
memory installed can make the same claim. 


More than Just Hardware 

Each Gs-RAM and Gs-RAM Plus includes the 
most powerful set of IIGs software enhance- 
ments available anywhere. In fact, our nearest 
competitor offers only a fraction of the 
invaluable programs that we include with 
each Gs-RAM card. This software includes the 
most powerful disk-caching program available, 
the Gs-RAM Cache. The Cache will make most 
of your applications run up to 7 &mes faster. 
Also induded is a diagnostic utility that lets 
you test your Gs-RAM by graphically showing 
the location of any bad or improperly 
installed RAM chips. And for AppleWorks 
users, we give you our exclusive Expander 
program that dramatically enhances both the 
capabilities and speed of AppleWorks. 
Making AppleWorks Even Better 

Applied Engineering’s Expander program 
eliminates AppleWorks intemal memory limits 
allowing it to recognize up to 8 megabytes of 
desktop workspace. You can increase the 
limits from only 7,250 lines to 22,600 lines in 
the word processor and from 6,350 records 
to 22,600 records in the database. The 
Expander allows all of AppleWorks, including 
print functions, to automatically load into 
RAM. The clipboard size will increase from 
255 to 2,042 lines maximum. Gs-RAM will 
automatically segment larger files so you can 
save them onto multiple floppies. And 


Gs-RAM provides a built-in print buffer that 
allows you to continue working in Apple- 
Works while your printer is still processing 
text You can even load Pinpoint or Macro- 
Works and your favorite spelling checker into 
RAM for instant response. 


Grow by Kilobytes or Megabytes 


We offer Gs-RAM in two configurations so 
you can increase your memory 256K at a 
time (GS-RAM) or a megabyte at a time 
(Gs-RAM Plus). Both are IIGs compatible and 
both come with our powerful enhancement 
software. Gs-RAM can hold up to 1.5 MEG of 
250K chips and Gs-RAM Plus can hold up to 
6 MEG using 1 MEG chips. And since both 
use standard RAM chips (not high-priced 
SIMM’s), you'll find expanding your Gs-RAM 
or Gs-RAM Plus easy, convenient, and very 
economical For further expansion, you can 
plug a 2 MEG “piggyback” card into the Gs- 
RAM’s expansion port for up to 3.5 MEG of 
total capacity. Or up to a whopping 8 MEG 
on GS-RAM Plus. If a Gs-RAM owner Outgrows 
3.5 MEG, he can easily upgrade to Gs-RAM 
Plus for a nominal charge. 


Permanent Storage for an 
“Instant On” Apple 

With our RamKeeper™ back-up option, 
your GS-RAM or GSRAM Plus will retain both 
programs and data while your IIGs is tumed 
off Now when you tum your Ics back on, 
your favorite software is On your screen in 
under 4 seconds! With RamKeeper you can 
divide your IIGS memory into part “electronic 
hard disk,” and part extended RAM. Even 
change the memory boundaries at any 
time—and in any way—you want Because 


“In quality, 
Performance, 
compatibility, 
expandability and 
support, Applied 
Engineering's GSRAM 
and oSRAM Plus are 
number one.” 


Steve Wozniak, the creator 
of Apple Computer 


Applied Engineering has the most experience 
in the industry with battery-backed memory 
for the Apple, you are assured of the most 
reliable memory back-up system available. 
And in the word of battery-backed memory, 
Reliability is everything, That's why Applied 
Engineering uses state-of-the-art “GEL-CELL’s” 
instead of Ni-Cad batteries (if Ni-Cads aren't 
discharged periodically, they lose much of 
their capacity). RamKeeper has about 6 
hours of “total power failure” back-up time. 
That's 6 times the amount of other systems. 
But with power from your wall oudet, 
RamKeeper will back-up Gs-RAM, Gs-RAM 
Plus, or most other [IGS memory cards 
indefinitely. Should you ever have a “total 
power failure,” RamKeeper switches to its 
6-hour battery. When power retums, Ram- 
Keeper will automatically recharge the battery 
to full power. RamKeeper incorporates a 
dual rate charger, status LE.D.’s, and ad- 
vanced power reducing circuitry. RamKeeper 
comes complete with battery, software, and 
documentation. 


GS-RAM’s Got it ALL! 

e 5-year warranty — parts & labor 

e 6 RAM banks (most cards have 4) 

e Memory expansion port 

e ROM expansion port 

e Ultrafast disk caching on ProDOS 8 AND 
ProDOS 16. 

e Expands AppleWorks intemal limits 

e Includes hi-res self test 

e No soldered-in RAM chips 

e Expandable to 8 MEG 

e No configuration blocks to set 

e RamKeeper back-up option allows 
permanent storage of programs & data 

e 15-day money-back guarantee 

e Proudly made in the USA 


GS-RAM with 256K 
GS-RAM with 512K 
GS-RAM with 1 MEG 


GS-RAM with 1.5 MEG 
GS-RAM with 2.5 to 3.5 MEG 
Gs-RAM Pius with 1-8 MEG 
RamKeeper Option 


Order today! 

See your dealer or call Applied Engineering 
today, 9 am. to 11 pm 7 days Or send 
check or money order to Applied Engineering 
MasterCard, VISA and CO.D. welcome. 

Texas residents add 7% sales tax. Add $10.00 
outside USA 


ZC. APPLIED ENGINEERING” 


The Apple enhancement experts. 
(214) 241-6060 


P.O. Box 798, Carrollton, TX 75006 
Prices subject to change without notice 


GS-RAM, GS RAM Plus and RamKeeper are wademarks of Applied Engineering, Other brands and product names are registered wademarks of their respective holders. 
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3140 Sunn nnn enn enn nen n nee 
3120 # MOVE MEMORY BLOCK 
160 ® JSR MOVE.BLOCK 
3170 sd -DA destination, source,num.bytes 
ate ® (at $1B84 in AppleWorks 1.3) 
3380 MOVE. BLOCK 
0905=- AQ 06 3310 LDA #6 GET 6 PARM BYTES 
0907- 20 5F 08 3220 JSR GET.A.PARMS 
O90A- A5 OF 3330 LDA P5 GET NUMBYTES-HI (# FULL PAGES) 
090C- FO OF 20 BEQ . .»»NO FULL PAGES TO MOVE 
250 #&---Move Full Pages-------------- 
O90E- Bi 9C 260 .1 LDA (P2), 
0910- 24 A 270 STA (P0),Y 
0912- ¢ 280 INY 
0 13 DO F 290 BNE .1 .. UNTIL FULL PAGE MOVED 
0915- £6 9 00 INC P1 SOURCE-HI 
0 ie E6 9D 10 INC PB DEST INATION-HI 
0919=- C6 OF 20 DEC P # FULL PAGES LEFT 
091B- DO F1 3 3 BNE .1 .»» STILL MORE 
0 #---Move Partial Page------------ 
091D- Ch 9E 3390 .2 CPY P4 FINISHED PARTIAL PAGE? 
091F- FO 7 60 BEQ .3 eos YES 
0921- Bi 9C 3319 . LDA (Pe Y 
0955- CB oN 0 me 
25- 
0926- DO F5 3780 BNE .2 . ALWAYS 
3} 0 8 
: s # DEMONSTRATION OF SOME STRING SUBROUTINES 
460 Beem mcwwenwnwe cn cnweonweeweosooocn 
ga ag yo EL Sao ge 
O92E- 20 8E F 490 JSR MON.CROUT 
0931- 20 F1 08 3500 JSR DISPLAY. STRING 
0936- 20 8& FD 3520 JSR MON .CROUT 
o3 2- a a 8 3530 JSR MOVE.STRING 
OBR - 0 3340 .DA STR.C,STR.B 
0940- 20 F1 08 3550 JSR DISPLAY. STRING 
0945- 8E FD 240 JSR MON .CROUT 
9 aoe =H B Be 580 JSR APPEND. STRINGS 
O9NE- 09 3590 ‘,DA STR.C,STR.A 
0 AE - 20 Fi 08 #30 JSR DISPLAY . STRING 
o92h- 63 620 Ars 
36 30 Seceeeee se eceSec cee ecee ce eesuse 
0955- 11 Sti STR.A .DA #SZ.A 
0 2 - D4’ CBC 
0 Q- D3 AOC 
095C- D3 AO D 
O922- CE Cy A 
0965- C1 AE 3650 .AS -/THIS IS STRING A./ 
- 3860 SZ.A ~EQ #—~STR.A-1 
0968- D4 C8 C9 
096B- D3 AO C9 
096E- D3 AO D3 
OOT4- CE CY AO 
0897 - C2 KE 3680 .AS -/THIS IS STRING B./ 
11- 3620 SZ.B  .EQ #-STR.B-1 
0979- 700 STR.C .BS 80 
3710 #----~---------------- + ---- = +--+ 
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Screen Dump PiGUS ii 46h 058% 6A GSS SORES TAS Se Oe LOULS Pitz 


Enclosed is SCRNDUMP.PLUS, an enhancement to Steve Knouse's 
Generic Screen Dump in Apple Assembly Line, September 1983. 

The main enhancements are 40/80/Lores capability and, via 
conditional assembly, either a DOS 3.3 or a ProDOS version. 

The Lores capability is modified from a routine by R.M. Mottola 
in Nibble/#3/p.18. 


The idea is to squeeze in as many features as possible and 
still have a utility that will fit in good old page 3 space 
($300.3CF). However, there are times you have something else 
in page 3 and need your screendump utility elsewhere. This is 
easy to do just by reassembling the screendump at another 
address. However, I'm lazy, and when I need a screendump 
utility installed I don't want to have to hunt for my assembler 
disk. So this version is self-relocating in that you can BLOAD 
and CALL to install it at any address where you have 284 bytes 
($11C) free. 


This is too big to fit in page 3, so I borrowed Bill Morgan's 
idea from AAL/Nov.82, to use the upper part of page 2. The 
input trap and dump portion of SCRNDUMP.PLUS fits in page 3, 
while the installation takes the top of page 2. Since 
installation is a one-time affair, it's disposable, although it 
will remain there if you don't make too heavy use of the input 
buffer. 


In addition to Steve Knouse and R.M. Mottola, I also learned 
and borrowed from Bill Parker's EPSON TEXT SCREEN DUMP, 1982 
and Gary Little's ProDOS DUMP# utility in A+t/Jul.85/p.69. I 
give credit to Roger Wagner's “Assembly Lines: The Book" for 
relocation ideas. There are a lot of neat technigues in this 
short utility, most of course 'borrowed' from other sources. 


Now for some comments on why I chose BLOAD & CALL logic. You 
can install the dump via BRUN in immediate mode in DOS 3.3. 
However, readers of AAL know (AAL/JUN.86, AUG.86, SEP.86) that 
there are problems in DOS 3.3 with BRUN from within an 
Applesoft program. So I chose BLOAD & CALL to avoid the extra 
code you'd need to solve the problem. The BLOAD and CALL 41876 
approach of AAL/AUG.86 is a good alternative to BRUN. 


However, 3.3 DOSologists need not be ashamed, for ProDOS has 
its quirks also! See Call-Apple/Apr .84/p.39/Cecil Fretwell for 
details, but in ProDOS you must choose between a BLOAD & CALL 
or BRUN approach even for immediate mode! Replace Lines 2120 & 
2130 by 


2120 STX KSWL 

2130 STY KSWH 

2134 RTS 

2138 .BS 2 (filler) 


for BRUN logic. Again, I chose BLOAD & CALL logic for both DOS 
3.3 and ProDOS to be consistent. Also, you can CALL 692 (or 
2B4G from monitor) to rehook if you haven't made too heavy use 
of the input buffer. 
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Now<Apple speaks IBM. 


Three times faster than IBM. 


Introducing 
PC Transporter. * 
The Apple® IT expansion 
board that lets you 
run MS®-DOS programs. 
Now your Apple II can run 
over 10,000 programs you could 
never use before. Like Lotus® 
1-2-3® MultiMate® dBASE III 
PLUS® Even Flight Simulator® 
With PC Transporter, MS-DOS 
programs run on your Apple II 
like they do on IBM® PC’s or 
compatibles. With one important 
difference. PC Transporter runs 
most of those programs three 
times faster than an IBM PC/XT® 
Plus, to speed through number- 
crunching tasks, you can use 
our optional 8087-2 math co- 
processor chip. It plugs into a 
socket on the PC Transporter. 
Less expensive than an 
IBM clone. 
Sure, a stripped-down IBM 


clone costs about the same as 
the PC Transporter. But the pe- 
ripherals it takes to get the clone 
up and running make the clone 
cost about three times what our 
American-made card costs. 

You don’t have to buy new 
hardware to use PC Transporter. 

Works with the hardware you 
already own. 

With PC Transporter, MS-DOS 
programs see your Apple hard- 
ware as IBM hardware. You 
can use the same hardware you 
have now. 

With IBM software, your Apple 
hardware works just like IBM 
hardware. Including your drives, 
monitors, printers, printer cards, 
clock cards and serial clocks. 


> * Spates ate 
yi a Ad be 
* : % 
= é 
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You can use your Ie® or IGs™ 
keyboard with IBM software. Or 
use Our Optional IBM-style key- 
board (required for the II Plus ). 

You can use your Apple mouse. 
Or an IBM compatible serial 
mouse. 

Plenty of power. 

PC Transporter gives you as 
much as 640K of user RAM 
and 128K of system RAM in the 
IBM mode. 

PC Transporter also is an Apple 
expansion card, adding up to 
768K of extra RAM in the Apple 
mode. The Apple expansion alone 
is a $300 value. 

Easy to install. 

You can install PC Transporter 
in about 15 minutes, even if 
you've never added an expansion 
board. You don’t need special 
tools. Simply plug it into an Apple 
expansion slot (1 through 7 ex- 
cept 3), connect a few cables and 
a disk drive, and go! 
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PC Transporter taps into the worlds largest 
software library. Now your Apple can 

run most Of the IBM software you use 

at work, And tt opens a new world of 
communications programs, games and 
bulletin boards. 


A universal disk drive 
controller. 

PC Transporter supports 3.5” 
and 5.25” MS-DOS and ProDOS 
formatted diskettes. You'll shift in- 
stantly between Apple ProDOS 
and IBM MS-DOS. 

You'll need our versatile 5.25” 
360K drive system to run IBM 
applications from 5.25” floppy 
disks. Use your Apple 5.25” drive 
for Apple 5.25” disks. 

An Apple Disk 3.5 Drive will 
support the new 3.5’disks 
whether they’re IBM MS-DOS 
formatted or Apple ProDOS for- 
matted. The PC Transporter acts 
like an Apple Disk 3.5 Drive disk 
controller for IGs, Te, and II 
Plus users. 

PC Transporter supports 
up to 5 drives in a number of 
combinations. 

For example, you can connect 
a 5.25 Applied Engineering 360K 
dual-drive system directly to the 
card. Then plug two daisy-chained 
Apple 3.5 Drives (not the Apple 
UniDisk 3.5) to the dual-drive 
system. For a fifth drive, use a 
ProDOS file as an IBM hard disk. 


PC Transporter controls Apple and IBM 
compatible disk drives. It supports 3.5" and 
5.25" MS-DOS and ProDOS formatted 
diskettes. 


Versatile data storage. 

PC Transporter reads MS-DOS 
and translates it into Apple native 
ProDOS. You can store IBM pro- 
grams and data on any ProDOS 
storage device including the 
Apple 3.5 Drive, Apple UniDisk 
3.5, Apple 5.25” drive, SCSI or 
ProDOS compatible hard drives. 
(You can use the Apple UniDisk 
3.5 with its own controller card 
for storing programs and data, but 
not for directly booting an IBM 
formatted disk. ) 

You can even use our 300K PC 
compatible drive for ProDOS 


Make your Apple speak IBM. 


PC Transporter memory choices. 
RAM in RAM in 

Apple mode: IBM mode: Price: 
384K 256K $489.00 
512K 384K 529.00 
640K 512K 569.00 
768K 640K 609.00 

Note: The IBM mode is 128K less because 

the PC Transporter uses 128K for system 

memory. 

lics Installation Kit 


Ile/ll Plus 
Installation Kit 39.00 


PC Transporter Accessories 


5.25” IBM Format 360K 
Drive Systems 
Single-Drive System 
Dual-Drive System 399.00 
Half-Height Drive 135.00 


(add to Single-Drive system to make 


Dual-Drive ) 

IBM-Style Keyboard 139.00 
(required for Apple IT Plus. Requires 
IBM Keyboard Cable. ) 

IBM Keyboard Cable 34.00 

Sony RGB Monitor 499.00 

39.00 


Analog RGB Cable 
39.00 


49.00 


269.00 


(for use with Sony monitor ) 
Digical RGB Cable 
(for use with Sony monitor ) 
Digital RGB Adapter 
ColorSwitch : 
(included with lics Installation Kit) 
128K ZIP 40.00 
PC Transporter per set 
Memory Expansion 
Chip Set 
8087-2 Math 
Co-processor 
Chip 
Heavy Duty 
Power Supply 
(Ile and If Plus only ) 


229.00 
69.00 


See your dealer or call or send 
check or money order to Applied 
Engineering. MasterCard, VISA and 
COD welcome. Texas residents 
add 61% sales tax. 


PC Transporter produces better IBM graphics 
than IBM. Analog is sharper than digital 
So with an analog RGB monitor PC 
Transporters CGA graphics and text are 
supertor to IBMS digital display — even 
while running \BM software! 

And, you can also use an Apple composite 
monttor in IBM text or graphics mode. 


storage and a 143K Apple 5.25” 
drive for MS-DOS storage. 

Created by Apple's original 

designers. 

The brains behind PC Trans- 
porter were also behind your 
Apple II. 

The PC Transporter design 
team includes the former project 
managers for the creation of the 
Apple He and Hc. The co-designer 
of the Apple II disk controller. 
And the first full-time Apple 
programmer and author of the 
ProDOS operating system. 

So you know the PC Trans- 
porter and your Apple were made 
for each other. 

Support and service from the 
leader in Apple add-ons. 

Applied Engineering sells more 
Apple peripheral boards than any- 
one else — including Apple 
Computer. So you know we'll be 
around after the sale. 

PC Transporter comes with a 
15-day money back guarantee. If 
you're not fully satisfied after 
using it, return it for a full refund. 
PC Transporter also comes with a 
l-year warranty. 

How to get your PC 
Transporter today. 

See your dealer. Or call Applied 
Engineering any day between 
9 a.m. and 11 p.m. CST at 
214-241-6060. 


Vas wa Applied Engineering 
The Apple enhancement experts. 


PO. Box 798, Carrollton, TX 75006 
214-241-6060 


A Division of AF Research Corporation, 


Apple Uf Plus must be FOO Ceruticd IBM and PONT are registered trademarks of International Busiiess Machines Latus and E24 are ropestored trademarks of Lotus Desclopment Corporation Mala Mite aod dBASE TE PEOS are repstered 
trademarks of Ashton (ate. lng MS and Flight Simulator are regsstered: trademarks of Microsoft Apple He and ProDOs are registered, tridcaiarks and HGS and CaiDisk are tradenuirks of Apple Computer 


Apple Assembly Line.....December, 1987 


eeee Copyright (C) S-C SOFTWARE.....Page 15 


Now to describe the utility in more detail. Lines 1540-1630 
find where it has been BLOADed. I think it's a good idea to 
inhibit interrupts while getting information from the stack. 
Then lines 1640-1720 modify (SETRAP+1) and (SETRAP+3) to point 
at TRAP. Lines 1730-1900 put the current INPUT address at 
TRAP+] .TRAP+2 and TRAP+8.TRAP+10: the first s0 we can 
'daisy-chain' our input TRAP at the end of the current INPUT 
routine, and the second so we can terminate via CTRL-T to 
remove our INPUT trap. Lines 1910-1980 set default parameters 
at locations 6-9 and SED. If you BLOAD without CALL-ing, you 
must set these parameters yourself. As far as I can tell, 
there are ll page 0 locations not used by Applesoft, Integer 
Basic, DOS 3.3, ProDOS (including interrupt handlers), or the 
System Monitor. They are 6-9, SIlE, SEB-EF, and SF9. 


Anyway, 6 (PRFLAG) is used as an enable/disable (1/0) flag- for 
when you want to disable dumping without removing the input 
trap. 7 (WINTOP) and 8 (WINBOT) are used to set a ‘window' to 
Gump if you don't want to dump the whole screen. Here the top 
line is 0 and bottom is 23 ($17). Note that I couldn't fit 
left and right margin windows in. If you want a routine that 
does both 40 and 80 column dumps you'll have to be careful in 
adding left and right margins. SED (FLAG) is used to flag if a 
dump has been done via CTRL-P from the TRAP (value $FF) or just 
a CALL 802 (JSR $322) (value 0). 


SETRAP, Lines 2050-2150, hooks TRAP into DOS or ProDOoOS. 


TRAP, our input ‘'filter', does its thing by first 
daisy-chaining to the current input routine and letting it do 
all the dirty work. Only then does TRAP check for either 
CTRL-T (Terminate TRAP and reset input hooks) or CTRL-P (Print 
the screen). If neither, exit to caller of input routine. If 
a CTRL-P, Set FLAG (SED) to S$FF to show we came thru TRAP. 
This avoids a JSR DUMP, which would not be relocatable. You 
could have a JSR DUMP with address filled in during the first 
portion of the utility just like SETRAP+1, +3 are filled in 
from Lines 1640-1720. That way you wouldn't need FLAG at all, 
but the approach takes 3 more bytes. Roger Wagner's book has 
other ways to do a relocatable JSR, but remember that we want a 
DUMP that can be called either directly or from TRAP. 


Note that lines 2280 and 2290 inside TRAP avoid another ProDOS 
‘gotcha’. A JMP $3D0 (DOS.WARM) in ProDOS (Q from IIgs 
Monitor) returns to immediate mode but erases Applesoft 
variables, unlike the friendly DOS 3.3! Thanks to Steve and 
Marsha Meuse for this one (Nibble/Nov.85/p.20). So from ProDOS 
JSR RSTINT and JSR BASIC2 exit without erasing variables. 
BASIC2 ($E003) is the address a CTRL-C <Return> from monitor 
uses. RSTINT ($9A17) is the same in BASIC.SYSTEM versions 1.0 
and 1.1, the only ones so far. Future versions may change, so 
beware. 


For the DUMP itself, we disable interrupts and save the A-X-yY 
registers, the cursor location CH (so after the dump is done 
you end up with the cursor where it was when you started), and 
the output hooks, in lines 2370-2490. 
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Lines 2510 and 2520 test the enable flag and exit if it's zero. 
Lines 2530-2650 simulate a PR#SLOT, and kill video echo. 

Change SLOT in Line 1060 if printer isn't in slot 1, and change 
NOAIO to 0 in Line 1080 if you have an AIO interface, which is 

code from Steve Knouse. 


Lines 2670-2720 start the dump with screenline specified by 
WINTOP. In Lines 2730-2820 we handle 80-column dumps. This is 
good only for //e or //c or IIgs using firmware 80-column 
routines. There are too many video interface cards that work 
in different ways to support them all. Some cards have their 
own dump utilities, so you may not be out of luck if you have a 
non-standard interface. In line 2810 I use SFF to flag the 
X-register if 80-columns are active. Otherwise, lines 
2840-2870 in MORCHR will end with X in range 0-23. That way in 
Lines 3090 and 3100 if X gets incremented to 0 then branch back 
to MORCHR to get even column character, so 2*40=80 
characters/line get dumped. This trick of using a register 
value out of the range you would normally get in the rest of 
your code is a handy way of saving bytes. 


In Line 2840 PRFN gets tested. O->LORES, and 1->TEXT. If 
LORES, still only do a mixed mode dump of 20 LORES lines and 4 
TEXT lines. Replace Line 2880 by 2 NOP's (SEA) to do 
full-screen LORES. Note that if you're in 80-column mode, the 
odd columns are dumped as text regardless of PRFN, since 2820 
skips MORCHR. So this dump doesn't do double-LORES. Also, 
your LORES-creating program should start with TEXT:HOME:GR 
since TEXT:HOME clears even 80-columns to spaces, whereas GR 
only clears 40 columns to nulls. If you just do GR, some text 
may be left in the aux memory text pages, and you'll see it 
when you do a LORES dump. 


So a LORES dump in 80-column mode still dumps only 40 column 
LORES, spaced out (if you did TEXT:HOME:GR) to match the 4 
lines of 80-column text at the bottom. 


In Lines 2890-3010 a quasi-40-by-40 resolution for LORES is 
done by using a space for both LORES blocks off, a caret for 
top LORES block on, an underline for bottom LORES block on, and 
an X for both LORES blocks on. This should work for most 
printers, but feel free to use other characters or symbols, 
especially if your printer has graphics. The resulting dump is 
good for monochrome LORES pictures, and eSpecially Bar Charts. 
Multi-colored LORES and even abstract monochrome patterns lose 
a lot in the ‘translation’ to print. 


Note especially how 2910 turns off the lo-nibble, while the 
exclusive-or in 2930 turns off the hi-nibble and turns back on 
the lo-nibble. Exclusive-or is a handy opcode to learn, and to 
Save bytes by using. Also, the BIT opcode is used in Lines 
2960, 2980, and 3000 as a 2-byte NOP to skip the following 2 
bytes. BIT changes the N,V, and Z flags, but since 3020 does 
another CMP anyway, this dosn't matter here. Another ‘gotcha’ 
is to avoid inadvertently toggling a soft-switch in the 
SCOOO-COFF range via BIT. I did that once and it took me a 
long time to figure out! 
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Lines 3020-3050 make sure a value of $AQ or greater is sent to 
printer, to avoid control] or inverse or flashing characters. 
Line 3060 then masks off the MSB to avoid graphics in EPSON 
printers. Lines 3080-3190 send the character to the printer 
and do loop checking for 80-columns, line length, and WINBOT 
screen checking. 


Lines 3210-3410 restore everything saved upon entry to DUMP. 

If FLAG was set to show we came thru TRAP, it's cleared in case 
next time we don't. Besides, if we came thru TRAP, we're in 
input mode and need to JMP RDKEY to get the next keystroke. If 
we didn't come thru TRAP, we can just exit via RTS. 


Some Demonstrations 


So much for the dump. Now it's time for some demo programs. 
The following, which I call CHARDEMO, shows the active 
character set, including MouseText if you're in 80-column mode. 
//e's, c's, and IIgs's have different character sets for 40 and 
80 column modes, and you'll see that most printers match the 
40-column character set best for INVERSE and FLASHing 
Characters. So what you dump isn't always what you see! If 
you avoid MouseText and INVERSE and FLASH, you'll do all right 
except that most printers use code $7F=127 as ‘delete previous 
char' instead of a checkerboard. So if you don't see a tilde 
(code $7E=126) or a checkerboard, you'll know what happened. 


5 REM CHARDEMO 
6 PRINT CHRS (4) "“BLOAD SCRNDUMP.PLUS" 
7 CALL 692: REM INSTALL HOOKS 
0 INVERSE 
20 PRINT CHRS$ (27) ;"@ABCDEFGHIJKLMNOPQRS 
TUVWXYZ[\J]“_"3 CHRS (24) 
30 NORMAL 
40 GOSUB 1000 
50 INVERSE : GOSUB 1000: NORMAL 
60 FLASH : GOSUB 1000: NORMAL 
70 END 
1000 FOR I = 32 TO 127: PRINT CHRS$ (1I)3: NEXT 
1010 PRINT : RETURN 


TESTGR does a LORES dump by CALLing DUMP directly. Try in 40 
and 80-column mode to see the difference. 


5 TEXT : HOME : GR 

10 COLOR= 15 

20 FOR I = 0 TO 39 

30 VLIN I,39 AT I: NEXT 

40 PRINT “THIS IS A TEST." 

50 POKE 9,0: CALL 802: POKE 9,1 

60 REM ASSUNES M/L BLOADED & PARAMETERS SET 
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TEST40 and TEST80 merely show that no top lines or characters 


get dropped. 


5 TEXT : 
10 FOR I 
20 PRINT 
25 PRINT 
30 NEXT 
5 TEXT : 
10 FOR I 
20 PRINT 
25 PRINT 
26 FOR J 
30 NEXT 


HOME 

= 1 TO 22 

"LINE NUMBER ";1;: HTAB 16 
“THIS IS A TEST.“ 

HOME 

= 1 TO 22 

“LINE NUMBER ";1I;: HTAB 16 


“THIS IS A TEST."; 
1 TO 40: PRINT “A* 


ge 


NEXT 


PRINT 


LORES .PIC, adapted from a David Thornburg program to do LORES 
and not HIRES patterns, allows you to experiment with patterns. 
Try Inputs x=0,y=0,s=field size=10, and 2 colors to see an 
abstract monochrome pattern-it loses a lot in the translation 


to print. 


5 REM LORES.PIC/DAVID THORNBURG/A+/DEC.86&JUN.87 


6 REM ASSUMES M/L BLOADED & PARAMETERS SET 

7 POKE 9,0: REM FOR LORES DUMP 

10 PRINT “ENTER STARTING X-VALUE "; 

20 INPUT A 

30 PRINT “ENTER STARTING Y-VALUE "; 

40 INPUT B 

50 PRINT “ENTER FIELD SIZE "; 

60 INPUT S 

70 PRINT “ENTER NUMBER OF COLORS (2-16) "“; 

80 INPUT N 

90 TEXT : HOME : GR 

100 FOR I = 0 TO 39 

110 FOR J = 0 TO 39 

120 X =A + (S * (I - 20) / 100) 

130 Y = B+ (S * (J - 20) / 100) 

140 Z = 10 * SIN (X * X) + 10 * SIN (Y * Y) 

160 COLOR= (Z - (N * INT (Z / N))) 

170 PLOT I,J 

180 NEXT J 

190 NEXT I 

200 CALL 802: POKE 9,1: REM DUMP, THEN BACK TO TEXT 
DEFAULT 


Try changing Line 140 to Z= X*X + Y*Y and use inputs 0,0,25,2 
If the pattern isn't too abstract, the 


to see circles. 
resulting dump 


to see hyperbolas. 


is ok. Also try 140 Z 


X*Y and inputs 0,0,20,2 


It's a neat program to play with, but 


unfortunately abstract and/or multi-colored patterns go past 
the capabilities of the simplistic LORES dump here. 
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100 
10 
10 
10 
10 

# 
1060 SLOT 
1070 DOS 
1080 NOAIO 
1110 PRFLAG 
1120 WINTOP 
bee WINBOT 
1140 PRFN 
1150 PTR 
1160 CH 
Me BASL 
1180 CSWL 
1190 CSWH 
1200 KSWL 
1210 KSWH 
1220 FLAG 
Met LINCTR 
1240 ® 
ued STACK 
1260 # 


1270 DOS.WARM 
1280 DOS .HOOK 


DAVE S.SCRNDUMP. PLUS 


0 
10 

20 ® See AAL/SEP.83/P.22-24/Steve Knouse 
20 # and NIBBLE/#3/P.19&40/R.M. Mottola 
O # ...modified 5/10/87 Louis Pitz 


.EQ 1 PRINTER SLOT# 
.EQ 1 DOS3.3 ACTIVE 
.EQ 1 GENERIC INTERFACE 
1100 #ea-ee-- ne -- enn 
.EQ $6 0->DISABLE, 1->ENABLE 
EQ \ TOP OF WINDOW TO PRINT 
.EQ BOTTOM 
.EQ $9 O->LORES, 1=>TEXT 
-EQ $EB USE FOR RELOCATING 
.EQ $24 
.EQ $28 
-EQ 36 
EQ I 
EQ 3 
-EQ $39 
.EQ $ED 
.EQ $EE 
.EQ $100 USE FOR RELOCATING 
.EQ $3D0 
.EQ $3EA 
AAS DOS ACTIVE->TRUE KSW 


1290 DOSKSW 
1300 VECTIN 
1310 RSTINT 


Enter Hott: 


Basic-like macros which make the complex simple. 


multiplication routine for the hundredth time! 


~ EQ 


9A1T 
E003 


-EQ 
-EQ i PRODOS ACTIVE->TRUE KSW 


Don't re-write that 


Get EnterSoft instead! Do 


8/16/32/64 bit Math/Input-Output/Graphics simply without all of the 


hassles. 


These routines are a must for the serious programmer who 


doesn't want to spend all of his/her time trying to re-invent the wheel. 
DOS 3.3 Version=$30.00, ProDos Version=$30.00, BOTH for only $50.00. 
GET YOURS TODAY. 


G Shape Table Program: 


For once! 


Vers 


gs 


5 . Nae 


A shape table program which is logically organizied into its 
componet parts. Each section resides in its own program. The editor, 
disk access, Hi-Res section; each section is separate. Written almost 

entirely in Basic, it is easily modified. Not copyprotected! 
Hard Disk, Ram Drive, anywhere! DOS 3.3 Version=$20.00, ProDos 


Se SOEs 


Send Check or Money Order To: 


Mark Manning 


c/o Simulacron |/Baggy Game 
P.O. Box 58598 
Webster, TX 77598 
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Put them ona 


Thanks for the letters - 
Keep Writing! 
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1340 NOV -EQ $578 
1350 COL80 .EQ $CO1F 80-COLUMN ON IF MSB=1 
1308 REGRAM .EQ $C054 SELECT MAIN RAM TEXT PAGE 
1 {9 AUXRAM .EQ $C955 .. AUX RAM 
1380 IDBYTE .EQ $FBB 6->//e OR c OR gs 
1390 BASCAL .EQ $FBC 
1400 VTAB .EQ $FC22 
1410 RDKEY .EQ $FDOC 
1420 KEYIN .EQ $FD1B 
30 CROUT .EQ $FD8E 
1440 COUT .EQ ED 
1450 OUTPRT .EQ $FE9 
1460 & RTRN EQ $FF5 
luge # First find out ‘WHERE AM I?! 
1490 ® See "Assembly Lines: The Book", chapter 14 
Aooe by Roger Wagner 
1520 .OR $2B4 FIT $2B4.3CF A$2B4,L$11C [A692,L284] 
1530 .TF SCRNDUMP. PLUS 
1540 DISINT PHP SAVE INTERRUPT STATUS 
1550 SEI DISABLE INTERRUPTS 
58 FF 1560 START JSR RTRN PUT START+2 ON STACK 
1570 TSX NOW GET STACK POINTER 
00 01 1580 LDA STACK,X GET (START+2)-HI BYTE 
EC 1590 STA PTR+1 
1600 DEX 
00 01 1610 LDA STACK,X GET (START+2)-LO BYTE 
EB 1920 STA PTR 
1 39 PLP RESTORE INTERRUPT STATU 
42 Nene LDY #SETRAP-START-1 OFFSET (SETRAPSI)- (START+2) 
NC 1660 ADC tee -2 OFFSET (TRAP )~ (START+2) 
EB 1670 STA PUT IN SETRAP+1 
EC 1680 LDA PTR+1 
00 1690 a“ #0 IN CASE CROSS PAGE BOUNDARY 
10 INY SO Y=OFFSET pSemAr yo) (START+2) 
EB 1720 STA (PTR),Y PUT IN SETRAP 
1730 DO DO F DOS ACTIVE 
55 AA 1740 LDA DOSKSW SAVE INPUT HOOKS INSIDE TRAP 
1750 E IF PRODOS 
1760 LDA VECTIN 
1770 IN 
Pe 1f90 LDY ee ane OFFSET (TRAP+8 )-(START+2) 
aly 300 ee ee fTRA ~START- 1 OFFSET (TRAP+1)-(START+2) 
1820 INY NOW OFFSET (TRAP+2)-(START+2) 
1 3 .DO DOS IF DOS ACTIVE 
56 AA 1840 LDA DOSKSW+1 
1850 . ELSE IF PRODOS 
1860 LDA VECTIN+1 
bate ~FIN 
EB 1880 STA (PTR),Y 
56 1890 LDY éTRAPLO-START OFFSET (TRAP+10)-(START+2 ) 
EB ace STA (Pr R),Y 
00 1910 LDX # SET DEFAULT VALUES 
07 1920 STX WINTOP TOP OF SCREEN=LINE 0 
ED eee oe FLAG CLEAR FLAG AT START 
06 1950 STX PRFLAG ENABLE ROUTINE 
09 1960 STX PRFN SET FOR TEXT 
1 1370 LDX #23 SET BOTTOM SCREEN 
0) pt STX WINBOT TO LINE 23 
2000 # NOW FOR SETRAP -SET INPUT HOOKS 


2010 * TO POINT 
2020 * NOTE HOW 


AT 'TRAP' OR INPUT ce 
FIRST SECTION NODIF TES SETRAP+1) 


2030 AND (SETRAP+3) TO POINT AT TRAP! 


O4 2050 SETRAP LDX #TRAP 
03 2060 LDY /TRAP 
2070 -DO DOS IF DOS ACTIVE 
8 2080 STX KSWL 
9 2090 STY KSWH 
EA 03 2100 JMP DOS .HOOK 
2110 » ELSE PRODOS 
2120 STX VECTIN 
2130 STY VECTIN+1 
2140 RTS 
2150 -FIN 
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2160 
O4- 20 1B FD Bike TRAP JSR KEYIN 
0 ae #394 CTRL-T FOR 


GET KEYPRESS 


TERMINATE? 


NE . NO 
OB- A2 1B 2200 LDX #KEYIN RESET INPUT HOOKS 
OD- AO FD 2210 LDY /KEYIN WHICH HAVE BEEN SAVED 

O30F- 86 38 2220 STX KSWL 
0311- 84 39 2230 STY KSWH 

22K0 .DO DOS IF DOS ACTIVE 
031 - 20 BA 03 2250 JSR DOS.HOOK PASS TO DOS 
0316- 4C DO 03 2260 JMP DOS.WARM AND EXIT 

2270 . ELSE PRODOS 

2280 JSR RSTINT PASS TO PRODOS 

2290 JMP BASIC2 AND EXIT 

2300 FIN 
0319- C9 90 = 2310... CMP #$90 CTRL-P FOR PRINT? 
031B- FO 01 2320 BEQ .2 YES->BRANCH 
031D- 60 2330 RTS NO-> EXIT 
O}1B- AQ EF ©2340 2 LDA #$FF RESET FLAG TO SHOW 
0320- 85 ED 2350 STA FLAG HAVE COME THRU TRAP 
0322- 08 2370 DUMP PHP SAVE INTERRUPT STATUS 
0323- 78 2380 SEI DISABLE INTERRUPTS 
032h- 2390 PHA SAVE A,X,Y 
0325 8A 2400 TXA 
0326- 48 2410 PHA 
0327- 98 2420 TYA 
0328~ 2430 PHA 
0329- Ag 24 2 LDA CH SAVE CH 
032B- 2450 PHA 
O32C- Ae 36 2460 LDA CSWL SAVE OUTPUT HOOKS 
032E- 2470 PHA 
032F- A5 37 =. 2480 LDA CSWH 
0331- 48 24.90 PHA 

2500 # 
0332- A5 06 2510 LDA PRFLAG ROUTINE ENABLED? 
0334- FO 7A 2520 BEQ RESTOR IF NOT, GET OUT 
0336- A901 2530 LDA # COLD START BOARD 
0338- 260 95 FE 2540 JSR O I 

2550 DO NGATO.  GENENTC CNTERFACE 
033B- AQ 8 2560 LDA 8 KILL VIDEO ECHO 
O34D- 20 ED FD 2570 JSR C Vk 
0340- A9 CE —- 2580 LD CTRL-I"N" 
0342- 20 ED FD 2590 uBR C 

2600 . ELSE SS4 AIO INTERFACE 

2610 LDA #$80 

2620 JSR COUT 

26 30 LDX SLOT 

2640 STA NOVID,X 

2650 FIN 
0345 20 8E FD 2670 JSR CROUT START ON A NEW LINE 
0348- A5 07 ©2680 LDA WINTOP 
O34A- 85 EE 26.90 STA LINCTR COUNT SCREEN LINES 
034C- 20 C1 FB 2700 NXTLN JSR BASCAL GET ADDR OF LINE 
O34F- AO 00 ©2710 LDY #0 START W/ 1ST CHAR (0-TH) 
0351- 84 24 = 2720 STY CH SET CH=0 TO START LEFT EDGE 
0353- 2C 1F CO 2730 NXTCHR BIT COL80 80-COL ON? 
0356- 10 1 21 0 BPL MORCHR NO->BRANCH 
0358- AD B3 FB 2750 LDA IDBYTE //e OR c OR gs? 
035B- C9 0 2760 CMP #6 
035D- DO 0C _—s«-27770 BNE MORCHR NO->BRANCH 
035F- 8D 55 CO 2780 STA AUXRAM | READ ODD COLUMN 
0362- Bi 2 2790 LDA (BASL),Y 
0364 - 8D 54 CO 2800 STA REGRAM READY FOR EVEN COLUMN 
0367- A2 FF = 2810 LDX #$FF SHOW 80-COL ON 
0309 - DO 2 2820 BNE JNVCHK | SEND ODD COLUMN CHAR 
036B- Bi 2 26 30 MORCHR LDA (BASL),Y 
036D- A6 09 =. 2840 LDX PRFN LORES OR TEXT? 
036F- DO 1D = 2850 BNE INVCHK IF TEXT THEN BRANCH 
037 1- A6 E 2860 LDX LINCTR SO NOW LORES 
0373- EO 1 2870 CPX #20 BUT DO AT MOST 20 LORES & 4 TEXT 
0375- 10 17 2880 BPL INVCHK SO TEXT IF PAST LINE 20 
0377- C9 00 2890 CMP #0 ZERO GRAPHICS? 
0379- FO 0B 2900 BEQ .1 YES, USE SPACE 
037B- 29 FO 2910 AND #$FO HI NIBBLE= LO-LORES BLOCK 
037D- FO OA 2920 BEQ . O->USE *, HI-LORES BLOCK ON 
037F- 51 28 2930 EOR (BASL), Y LO-NIBBLE=HI-LORES BLOCK 
0381- FO 09 29h0 BEQ . O->USE _, LO-LORES BLOCK ON 
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0383- A9 DB  ~—s-_- 2950 LDA #"X USE X, BOTH BLOCKS ON 
0385- 2C 2960 -HS 2C (BIT TO SKIP NEXT 2 BYTES) 
0 B6- Ag AO 29 0.1 LDA #$A0 SPACE FOR ZERO 
0 89 Ag DE 2990 2 LDA en CARET FOR HI-LORES BLOCK ONLY 
O3BGe AQ DF 01 DA #"_ UNDERLINE FOR LO-LORES BLOCK ONLY 
0385 Co AO 020 INVCHK CMP $0 INVERSE OR FLASHING? 
0390- BO 04 03 BCS REGCHR NO, SO REGULAR CHAR 
0392- 69 ho 30 0 ADC #$40 YES, ALTER BITS 6 & 7 
0394- DO F8 050 BNE INVCHK AND KEEP CHECKING 
0396- 29 7F 060 REGCHR AND #$7F MASK OFF HI BIT TO AVOID 
070 # EPSON BLOCK GRAPHICS 
0398- 20 ED FD 3080 JSR COUT PRINT IT 
039B- E8 090 INX 80-COL ON-> FROM $FF TO 0 
039¢~ FO CD 3190 BE MORCHR IF SO, GET EVEN COLUMN CHAR 
039F- CO 28 3120 CPY #40 WHOLE LINE DONE? 
Al- 90 BO 130 BCC NXTCHR NO-GET NEXT CHAR 
O34 - 20 BE FD 31 0 JSR CROUT | END OF LINE 
O3ab- E6 EE 150 ‘INC LINCTR GOTO NEXT LINE # 
O3A8- AS E 3160 LDA LINCTR 
O3AA- C5 0 170 P WINBOT AT BOTTOM SCREEN YET? 
OZAC- 30 9E 31 0 BMI NXTLN  NO-GOTO NEXT LINE 
O3AE- FO 9C 190 BEQ NXTLN §§_YES-GET LAST LINE 
03B0- 68 rest RESTOR PLA RESTORE OUTPUT HOOKS 
03B1- 88 37 220 STA CSWH 
03B3- 230 PLA 
O3B4- 85 36 2h0 STA CSWL 
O3B6- 6 250 PLA RESTORE CH 


CH 
JSR VTAB AND LINE 


O3B9=- 20 22 FC N 
RESTORE Y,X,A 


O3BC- 68 3280 PLA 

O3BD- A8 3290 TAY 

O3BE- 68 00 PLA 

O3BF- AA 10 TAX 

03CO- A5 ED 20 LDA FLAG DID WE COME THRU TRAP? 

03C2- DO 03 30 BNE CLEAR YES->BRANCH 

03C4- 68 3 40 PLA NO-> RESTORE (A) 

03C5= 28 50 PLP RESTORE INTERRUPT STATUS 

03C6- 60 3360 RTS AND EXIT. 

03C7T- AQ 00 0 CLEAR LDA #0 CLEAR FLAG 

03C9- 3 ED ) STA FLAG 

0 CcB- 0 PLA RESTORE (A) 
03CC- ¢8 0 PLP RESTORE INTERRUPT S TATUS 
O3CD- 4C OC FD ate . JMP RDKEY GET NEXT KEY-JMPS TO (KSWL) 


DON LANCASTER STUFF 


ASK APPLE lic/lle 


INTRODUCTION 
TO POSTSCRIPT 


A 65 min user group VHS 
video with Don Lancaster 
sharing many of his laser 
publishing and Postscript 
programming secrets. 


Includes curve tracing, $5 
toner refilling, the full Kroy 
Kolor details, page layouts, 
plus bunches more. 


$39.50 


FREE VOICE HELPLINE 


Box 809-SC 
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THE GURU 


An entire set of reprints to 
Don Lancaster's ASK THE 
GURU columns, all the 


way back to column one. 


Edited and updated. 


Both Apple and desktop 


publishing resources are 
included that are not to be 
found elsewhere. 


$24.50 


ABSOLUTE 
RESET 


Now gain absolute control 
over your Apple! You stop 
any program at any time. 


Eliminates all dropouts on 
your HIRES screen dumps. 
Gets rid of all hole biast- 
ing. For any lic or lle. 


$19.50 


SYNERGETICS 
Thatcher, AZ 85552 
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POSTSCRIPT 
SHOW & TELL 


Unique graphics and text 
routines the others don't 
even dream of. For most 
any Postscript printer. 


Fully open, unlocked, and 
easily adaptable to your 
own needs. Available for 
Apple, PC, Mac, ST, many 
others. 


$39.50 


VIS A/MC 


(602) 428-4073 
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It's 1988, and ProDOS Thinks it's 1982....Bob Sander-Cederlof 


If you are still using ProDOS 1.1.1, and you have some sort of 
clock card such as Thunderclock, TimeMaster, or any other 
“standard” ProDOS clock, you have a problem. Apple built this 
bug into ProDOS, and they came out with the new versions (they 
call it ProDOS-8 version 1.4 now) just in time. 


In my article about the clock driver in the November 1983 issue 
of AAL (pages 25-28), I discussed the problem. It seemed a 
little more remote at the time. Apple based ProbDOS on the 
Thunderclock, even though that device does not keep track of 
the year. The ProDOS clock driver reads the Month, Day, and 
Day of Week information and does some arithmetic to determine 
which of six years could produce that day of week on the 
corresponding month and day. ProDOS 1.1.1 and earlier versions 
could produce dates from 1982 through 1987. When 1988 rolled 
around a few weeks ago, hundreds of thousands of Applers around 
the world slipped back in time to 1982. 


And it is not funny! Some programs will not let you operate if 
the dates are not correct! 


Well, there are at least four ways around the problem. You can 
remove your clock card, and type the date in manually wherever 
it is really needed. Not very nice. 


Or, you can get the up-to-date version of ProDOS, now called 
ProDOS-8 Version 1.4. You can get it, and then you can copy it 
to every floppy (both 3 1/2 and 5 1/4), to every RamFactor, to 
every hard disk in sight. This is tedious, but it is the best 
solution. If you have a friendly dealer, you can get it from 
the IIgs system disk. But don't copy the file named PRODOS 
from this disk (that is only a loader now). Instead, copy the 
file named P8 from the subdirectory SYSTEM. P8 is a longer 
file than version 1.1.1 of PRODOS was, so if you use BSAVE to 
put it on your disks be sure to specify the L parameter. 
Something like this should do the trick: 


Boot any ProDOS disk, preferably one with version 1.4 so 
the correct dates will get into the file directories you 
are updating. Get into the S-C Macro Assembler or 
Applesoft. With the latest IIgs system disk in your 
drive, type: 


BLOAD SYSTEM/P8,TSYS,A$2000 


Now put the disk you want to update into a drive, and type 
the following. You may want to include slot and drive 
parameters, or set the prefix to the appropriate value for 
a ram disk or hard disk. 


UNLOCK PRODOS 
BSAVE PRODOS ,TSYS,A$2000,L$3C7D 
LOCK PRODOS 
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A third appecaen saves you a trip to the dealer. You can 
Simply PATCH the copies of ProDOS version 1.1.1 to give you the 
correct year. When you BLOAD the file named PRODOS at $2000, 
the six-year table is at $4F76. If you look there now you will 
find the following bytes: 


4F76: 54 54 53 52 57 56 55 


These correspond to the years 1984, 1984, 1983, 1982, 1987, 
1986, and 1985. Notice that 1984, being a leap year, takes up 
two of the values. Patch these seven bytes, using the monitor, 
as follows: 


4F76:5A 59 58 58 57 56 5B 


The table now includes the years from 1986 through 1991. If 
you want 1992 in there also, substitute 5C where I have 57 and 
56 above. Both 1988 and 1992 are leap years, so they both take 
two table positions. When ProDOS 1.4 was released it was still 
1987, so there was not room for 1992 in the table. 


A fourth possible solution was suggested by reader Garth 
O'Donnell. You can replace the clock driver inside ProDOS with 
one that reads the year directly from your clock card! This is 
what happens when you boot Version 1.4 in a IIgs, because P8 
senses that you are in a IIgs and plugs in a different driver. 
But if you are still using an older Apple, as most of uS are, 
you can modify the PRODOS file to load an intelligent driver 
for your own clock card. Of course, if you are using a 
Thunderclock, the driver with the above patches is the best you 
can do. But if you have a TimeMaster, as Garth does, you can 
use a program like he wrote. 


I decided to try my hand at modifying the standard clock driver 
so that it uses the year information in the TimeMaster. The 
following program is derived directly from the standard driver, 
with as few modifications as possible. It still resides in the 
ProDOS SYS file at S4F00, but it is a lot shorter. (Maybe you 
can think of something useful to do with the extra 45 bytes!) 
It still depends upon the standard ProDOS loader to plug in the 
actual slot number in lines 1260 and 1310. The major change I 
made was to call on the “:" instead of the “#“* mode. The “#* 
mode is a ThunderClock mode, which does not return the year. 
The ":" mode is a TimeMaster mode, which does return the year. 


If you have an Applied Engineering Serial Pro card, which 
includes a TimeMaster compatible clock, you can use the driver 
I wrote by making the single change as shown in the comments on 
line 1090. Or, maybe you could use those extra 45 bytes for a 
subroutine that would check which clock is in the slot and make 
the appropriate changes at run time. 
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4FOO- 1180 -TF B_ CLOCK. DRIVER 
1000 SSAVE S.CLOCK. 198 
1020 ® IF THE PRODOS BOOT RECOGNIZES A TIMEMASTER, 
1030 # A "UMP $p742" IS INSTALLED AT $BFO6 AND 
1040 ® THE SLOT ADDRESS IS PATCHED INTO THE FOLLOWING 
1050 # CODE AT SLOT.A AND SLOT.B BELOW. 
1070 # DEFINE CLOCK ENTRY POINT 
C108- 1090 CLOCK .EQ $C108_—<<<USE_$C11D FOR AE SERIAL PRO>>> 
BF90- 1110 DATE .EQ $BF90 Brgl = Yyyyyym 
1120 ® BFO0 = MMMDDDDD 
BF92- 1130 TIME BQ DATE+2  $BF93 = OOOHHHHH 
1140 & = OOMMMMMM 
0538- 1150 MODE EQ $5F8-$CO TIMEMASTER MODE IN SCREEN HOLE 
1170 OR $4F00 
4FOO- 1180 “TF B. CLOCK. DRIVER 
1190 "PH $D742 
1210 PRODOS. TIMDMASTER .DRI VER 
D742- AE 50 D7 1220 LDX SLOT.B $CN 
D7uR- BR 38 05 1230 LDA MODE,X SAVE CURRENT TIMIMASTER MODE 
D749- AQ B 1250 LDA #* SEND ":" TO TIMEMAS 
DyAB. 26 OB C1 1280 JSR EubcKs SELECT TIMEM 
D7T4D- 1270 SLOT.A BQ & : ASTER MODE 
1290 & READ TIME & DATE INTO $200...$211 IN FORMAT: 
D7¥E- 20 08 C1 1340 JSR CLOCK ——— 
D750- 1320 SLOT.B .EQ §-1 


© PROGRAMMER © 


Applied Engineering is seeking an experienced 6502 and 65816 machine language 
programmer. 2 years minimum programming experience is required. We offer an eee 
exciting opportunity for the experienced programmer to take his skills to the limit. 

Applied Engineering offers an excellent compensation package including paid 

--=- vacations, 11 paid holidays per year, health insurance program and Mommy 


» [Dil® 


‘= Applied Engineering's location in the suburbs of north Dallas offers a “buyer's quan, 
market” for housing, as well as excellent schools, shopping and entertainment 


Successful applicant should have heavy machine language experience on the Apple 
Ile and IGS as well as familiarity with AppleWorks. We're the best at what we do, if 
you are too, please send your resume to: 


Applied Engineering 


P.O. Box 5100 ee 
; Carrollton, TX 75011 VR Sarees 
ge aor ea Attn: Personnel aa - 
9 is : eee we se ee ‘ ng DY 
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1 0 Oo ee ee ee eee accom eo een aaa 
1380 ® CONVERT ASCII VALUES TO BINARY 
1350 § E -- MINUTE 
1360 ® D -- HOUR 
1370 § 3C -- YEAR 
1380 # 3B -- DAY OF MONTH 
1390 § 3A -- MONTH 
(GO?! Sucebee. -oeoodesee easneeecseesee 
Age: “Moe CBX #4 
peeks AO OC 1430 LDY #12 POINT AT MINUTE 
D756- B9 03 02 1440 .1 LDA $203,Y  TEN'S DIGIT 
D759- 29 OF 1450 D as IGNORE TOP BIT 
DyeB. BS 3A (eo STA $3A MULTIPLY DIGIT BY TEN 
DieES OA 1180 ASL “ih 
Bei ek a6 aot #0 
DIg2- 13 o4 02 1510 ADC $204,¥ ADD UNIT'S DIGIT 
D766- E9 BO 1530 SBC #$B0 SUBTRACT ASCII ZERO 
D7e8- 95 3A 1540 STA $3A,X STORE VALUE 
D76A- 88 1550 DEY BACK UP TO PREVIOUS FIELD 
preB- Be 1370 DEY 
Deeb. CA 1260 DEX BACK UP TO PREVIOUS VALUE 
D76E- 10 B6 1590 BPL .1 .. UNTIL ALL 5 FIELDS CONVERTED 
1610 § PACK MONTH AND DAY OF MONTH, 
D770- A8& 1630 TAY MONTH (1... 12) 
D771- 4A 1640 LSR 00000ABC--D 
D772- 6A 1650 ROR DOOOOOAB--C 
D773- 6A 1660 ROR CDO0000A--B 
D774- 6A 1670 ROR BCDO00000--A 
D775- 05 3B ~—«-16 80 ORA $3B MERGE DAY OF MONTH 
D777- 8D 90 BF 1690 : STA DATE SAVE PACKED DAY AND MONTH 
-~A53C 1710. LDA $3C. YEAR 
ey 1420 $3 MERGE TOP MONTH BIT 
D77D- 8D 91 BF 1730 ; STA DATE+s1 YYYIVH | 
DBS. BB 8b pr 1920 EPA Pie. SET HOUR 
- + 
To ot 
D7gA- 68 1790 PLA RESTORE TIMEMASTER MODE 
De BBe RE 5 BT 1360 LDX SLOT.B GET $CN FOR INDEX 
DIgE- 9D 38 05 1810 STA MODE ;X 
D791- 60 1820 RTS 


Software by Bob Sander-Cederlof 


PROmGRAMER' 
The PROMGRAMER is an inexpensive EPROM (Erasable 
Programmable Read Only Memory) programmer for the 
APPLE ][, ][+, and //e computers. The unit plugs into any 
slot of the computer, and allows the user to program any 
standard 5 volt, 27 series EPROM. Although not intended 
as a production tool, the ease of use allows rapid 
programming, copying, duplication, or modification of 


Hardware design by Bob Brice 
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RESEARCH GROUP 


S-C Software Corporation 


2331 Gus Thomasson, Suite 125, P.O. Box 280300, Dallas, Texas 75228 (214) 324-2050 


Our software is not only unlocked and fully copyable...we often provide the complete source 
code on disk, allowing you to understand how it works and make your own personal extensions. 


S-C Cross Reference Utility: A support program which works with the S-C Macro Assembler to 
generate an alphabetized listing of all labels in an assembly language source progran, 
showing with each label the line number where it is defined and all the line numbers 
containing references to that label. Works with multi-file source programs. The ProDOS 
version automatically follows the .IN or .INB ("include file") directives and assigns a 
code-letter to each included file in the cross reference listing. We include the complete 
source code for this amazingly fast program, in both DOS and ProDOS versions, for only $50. 


S-C DisAssembler: An intelligent two-pass disassembler which works in conjunction with the 
ProDOS version of the S-C Macro Assembler. Converts files of 6502 or 65C02 machine language 
programs into meaningful source code files complete with labels. Driven by a script you 
write in a convenient "disassembly" language, allowing you to define label names of your 
choice, process all or part of input files, and many other options. A built-in option 
produces comment lines before each label showing all reference points to that label. Comes 
with complete commented source code and easy-to-understand documentation, for only $50. 


Laumer Research Full Screen Editor: Integrates with the built-in line-oriented editor in 
the S-C Macro Assembler to provide a powerful full-screen editor for your assembly language 
source files. Drivers for Videx, STB80, and Apple //e (and //c) 80-column boards are 
included, as well as a 40-column version. Comes with complete source code, with both DOS 
and ProDOS versions, for only $49. 


ProVIEW, by Doug McComsey: A professional tool for "zapping" ProDOS disks and memory. On 
an Apple //c, //e, or //gs in 80-column mode ProVIEW gives you a 256-byte window into RAM, 
ROM, ProDOS files, and disk blocks. You can examine, modify, and update any portion of RAM, 
a file, or a disk block. Operates from a series of menu screens much like Appleworks, with 
complete HELP available at every step. Only $20! 


S-C Word Processor: The one we use for manuals, letters, our monthly newsletter, and 
whatever. 4O-columns only (II and II+ require lower-case display mod and shift-key mod). 
Works with standard DOS text files, but at super fast speeds (100 sectors in 7 seconds). No 
competition for Word Perfect, but you get complete source code! $50, DOS only. We also 
will include at no extra charge two additional disks. One contains the source and object 
code for an 80-column //e, //c, //gs. We use this one, but it has a few cosmetic 
un-feetures. Sorry, still only in DOS 3.3. The other disk contains the source and object 
code for a 40-column version which runs under ProDOS, on any ProDOS machine. We use both of 
these, but they are not as polished as the original. All for only $50! 


S-C Double Precision Supplement for Applesoft: Two complete packages for the price of one! 
Only $50 gets you the complete commented source code for both DPFP and DP18, with 
documentation. DPFP gives you 21-digit floating point precision for INPUT, PRINT, and +-*/ 
operations. DP18 is more complete, offering all of the math operations and functions, 
formatted I/O conversions, and 18-digit decimal floating point. DP18 is ideal for writing 
programs which deal with money. Both packages use the "&" command in Applesoft to add the 
new capabilities, without losing any of the old. DP18 includes both DOS and ProDOS 
versions, DPFP is DOS only. Detailed internal documentation for DP18 was published in 12 
consecutive issues of "Apple Assembly Line", and is available for an additional $18. 


Apple Assembly Line (ISSN 0889-4302) is published monthly by S-C SOFTWARE 
CORPORATION, P.O. Box 280300, Dallas, Texas 75228. Phone (214) 324-2050. 
Subscription rate is $18 per year in the USA, sent Buik Mail; add $3 for First 
Class postage in USA, Canada, and Mexico; add $14 postage for other countries. 
Back issues are $1.80 each (other countries inquire for postage). A 
subscription to the newsletter and the Monthly Disk containing all source code 
is $64 per year in the US, Canada and Mexico, and $87 to other countries. 


All material herein is copyrighted by S-C SOFTWARE CORPORATION, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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